home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PPC1B3AA.ZIP / TVOFF.PPS < prev    next >
Text File  |  1996-08-29  |  937b  |  49 lines
  1. ;----------------------------------------------------------------------------
  2. ; Copyright(C) 1996, The AEGiS Corporation
  3. ;----------------------------------------------------------------------------
  4. ;
  5. ; PROCEDURE TVOff()
  6. ;
  7. ; Visual effect of a TV powering down
  8. ;
  9. ;----------------------------------------------------------------------------
  10. #lib
  11. #nouser
  12.  
  13. Declare Procedure TVOff()
  14.  
  15. ;----------------------------------------------------------------------------
  16. Procedure TVOff()
  17. Int A
  18.  
  19. Color @X0F
  20. Cls
  21. AnsiPos 1, 12
  22. Print "@X0F───────────────────────────────────────────────────────────────────────────────"
  23. For A = 1 to 39
  24.     AnsiPos A, 12
  25.     Print " "
  26.     AnsiPos 80-A, 12
  27.     Print " "
  28. Next
  29. AnsiPos 40, 12
  30. Print "@X0F"
  31. Delay 1
  32. Backup 1
  33. Print "@X0F*"
  34. Delay 1
  35. Backup 1
  36. Print "@X0F+"
  37. Delay 1
  38. Backup 1
  39. Print "@X0F∙"
  40. Delay 1
  41. Backup 1
  42. Print "@X0F·"
  43. Delay 1
  44. Backup 1
  45. Print " "
  46. AnsiPos 1,1
  47.  
  48. Endproc
  49.